f <- file('test.txt',open='w')
cat('Header\n',file=f)
mat <- matrix(round(rnorm(12),8),ncol=3)
write.table(mat,file=f,
            row.names=FALSE,
            col.names=FALSE,
            append=TRUE)
close(f)
